home *** CD-ROM | disk | FTP | other *** search
/ Garden Fax: Garden Plants / Garden Fax - Garden Plants (1991)(CDTV Publishing).iso / s / startup-sequence next >
Text File  |  1991-04-17  |  1KB  |  50 lines
  1. ;
  2. ; Startup sequence for CDTVGQA
  3. ;
  4. ; Variants :-
  5. ;      CDTVGQA:  set to drive (CD0: or DF0:) where s/w is
  6. ;               APPLIC:   path for image data, i.e. subject matter
  7. ;      FILMS:    path for film scripts (DF0: or APPLIC:IMAGES)
  8. ;
  9. rmtm
  10. CDTVPrefs
  11. CD0:SYSTEM/C/ASSIGN sys: CD0:SYSTEM
  12. CD0:SYSTEM/C/ASSIGN c:   SYS:c
  13. assign CDTVGQA: CD0:
  14. assign APPLIC: CD0:ORN2
  15. ;
  16. binddrivers
  17. assign L: SYS:l
  18. assign FONTS: CD0:FONTS
  19. assign S: CDTVGQA:s
  20. assign DEVS: SYS:devs
  21. assign LIBS: SYS:libs
  22. makedir ram:tr
  23. assign t: ram:tr
  24. assign IMAGES:    APPLIC:IMAGES
  25. ASSIGN FILMS:     APPLIC:IMAGES
  26. ASSIGN COMIMAGES: APPLIC:IMAGES/COM
  27. ASSIGN INDIMAGES: APPLIC:IMAGES/IND
  28. ASSIGN PIMAGES:   APPLIC:IMAGES/P
  29. ASSIGN SIMAGES:   APPLIC:IMAGES/S
  30. ASSIGN PICONS:    APPLIC:IMAGES/PICONS
  31. ASSIGN DBDATA:    CD0:DATA
  32. ;
  33. cd c:
  34. Sys:System/FastMemFirst ; move C00000 memory to last in list
  35. BindDrivers
  36. FF >NIL: -0 ;speed up Text
  37. resident CLI L:Shell-Seg SYSTEM pure add; activate Shell
  38. resident c:Execute pure
  39. mount newcon:
  40. ;
  41. failat 11
  42. run execute s:StartupII ;This lets resident be used for rest of script
  43. wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done)
  44. ;
  45. SYS:System/SetMap gb ;Activate the ()/* on keypad
  46. path ram: c: sys:system s: add
  47. ASSIGN FONTS:   CD0:FONTS
  48. CDTVGQA:ovlcdtvgqa CDTVGQA:ORN2.setup
  49.  
  50.